package Regexp::Common::AT::NICAT;

use strict;
use warnings;
use Regexp::Common 'pattern';


our $VERSION = '0.02';


pattern
    name   => [ qw(at nicathandle) ],
    create => '[A-Z]{2,4}\d+-NICAT';


1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

Regexp::Common::AT::NICAT - Defines patterns for NICAT objects

=head1 SYNOPSIS

    use Regexp::Common 'AT::NICAT';

    if ($value =~ /$RE{at}{nicathandle}/) { ... }

=head1 DESCRIPTION

This module defines patterns for NICAT (Austrian domain registry) objects to
be used with L<Regexp::Common>.

Please consult the manual of L<Regexp::Common> for a general description of
the works of this interface. Do not use this module directly, but load it via
I<Regexp::Common>.

=head1 PATTERNS

At the moment there is only one pattern, but more patterns for .at domain
names will follow - they have some restrictions on length and characters to be
used.

=over 4

=item $RE{at}{nicathandle}

Provides a regex to match NICAT person handles.

=back

{% PROCESS standard_pod %}

=cut

